|
600
|
How can I display the currency only for not empty cells
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Currency" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "len(%0) ? currency(dbl(%0)) : ''"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Get ComAddItem of hoItems "0" to Nothing
Set ComItemBackColor of hoItems (ComAddItem(hoItems,Nothing)) to (RGB(255,128,128))
Get ComAddItem of hoItems "10000.99" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
599
|
Is there a function to display the number of days between two date including the number of hours
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "End" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComAdd of hoColumns2 "Duration" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComComputedField of hoColumn1 to "((1:=int(0:= (date(%1)-date(%0)))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s) ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "1/11/2001" to h
Set ComCellValue of hoItems h 1 to "1/14/2001"
Get ComAddItem of hoItems "2/22/2002 12:00:00 PM" to h
Set ComCellValue of hoItems h 1 to "3/14/2002 1:00:00 PM"
Get ComAddItem of hoItems "3/13/2003" to h
Set ComCellValue of hoItems h 1 to "4/11/2003 11:00:00 AM"
Send Destroy to hoItems
End_Procedure
|
|
598
|
Is there a function to display the number of days between two date including the number of hours
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Start" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "End" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn
Get ComAdd of hoColumns2 "Duration" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to ""D " + int(date(%1)-date(%0)) + " H " + round(24*(date(%1)-date(%0) - floor(date(%1)-date(%0))))"
Send Destroy to hoColumn
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "1/11/2001" to h
Set ComCellValue of hoItems h 1 to "1/14/2001 11:00:00 PM"
Get ComAddItem of hoItems "2/22/2002 12:00:00 PM" to h
Set ComCellValue of hoItems h 1 to "3/14/2002 1:00:00 PM"
Get ComAddItem of hoItems "3/13/2003" to h
Set ComCellValue of hoItems h 1 to "4/11/2003 11:00:00 AM"
Send Destroy to hoItems
End_Procedure
|
|
597
|
How can I display the number of days between two dates
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Start" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "End" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn
Get ComAdd of hoColumns2 "Duration" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "(date(%1)-date(%0)) + ' days'"
Send Destroy to hoColumn
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "1/11/2001" to h
Set ComCellValue of hoItems h 1 to "1/14/2001"
Get ComAddItem of hoItems "2/22/2002" to h
Set ComCellValue of hoItems h 1 to "3/14/2002"
Get ComAddItem of hoItems "3/13/2003" to h
Set ComCellValue of hoItems h 1 to "4/11/2003"
Send Destroy to hoItems
End_Procedure
|
|
596
|
How can I get second part of the date
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Second" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "sec(date(%0))"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/11/2001 10:10:00 AM" to Nothing
Get ComAddItem of hoItems "2/22/2002 11:01:22 AM" to Nothing
Get ComAddItem of hoItems "3/13/2003 12:23:01 PM" to Nothing
Get ComAddItem of hoItems "4/14/2004 1:11:59 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
595
|
How can I get minute part of the date
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Minute" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "min(date(%0))"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/11/2001 10:10:00 AM" to Nothing
Get ComAddItem of hoItems "2/22/2002 11:01:00 AM" to Nothing
Get ComAddItem of hoItems "3/13/2003 12:23:00 PM" to Nothing
Get ComAddItem of hoItems "4/14/2004 1:11:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
594
|
How can I check the hour part only so I know it was afternoon
Procedure OnCreate
Forward Send OnCreate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "hour(%0)>=12" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBold of hoConditionalFormat to True
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Hour" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "hour(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/11/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/22/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/13/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/14/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
593
|
What about a function to get the day in the week, or days since Sunday
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "WeekDay" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "weekday(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/11/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/22/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/13/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/14/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
592
|
Is there any function to get the day of the year or number of days since January 1st
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Day since January 1st" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "yearday(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/11/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/22/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/13/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/14/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
591
|
How can I display only the day of the date
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Day" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "day(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/11/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/22/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/13/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/14/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
590
|
How can I display only the month of the date
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Month" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "month(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/2/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/3/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/4/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
589
|
How can I get only the year part from a date expression
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Year" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "year(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/2/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/3/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/4/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
588
|
Can I convert the expression to date
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Date" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "date(dbl(%0))"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "30000.99" to Nothing
Get ComAddItem of hoItems "3561.23" to Nothing
Get ComAddItem of hoItems "1232.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
587
|
Can I convert the expression to a number, double or float
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Number + 2" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "dbl(%0)+2"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
586
|
How can I display dates in long format
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "LongFormat" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "longdate(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/2/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/3/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/4/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
585
|
How can I display dates in short format
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "ShortFormat" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "shortdate(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/2/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/3/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/4/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
584
|
How can I display the time only of a date expression
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Time" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "'time is:' + time(date(%0))"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/2/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/3/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/4/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
583
|
Is there any function to display currencies, or money formatted as in the control panel
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Currency" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "currency(dbl(%0))"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Get ComAddItem of hoItems "10000.99" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
582
|
How can I convert the expression to a string so I can look into the date string expression for month's name
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Str" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "str(%0) + ' AA'"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
581
|
Can I display the absolute value or positive part of the number
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Abs" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "abs(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
580
|
Is there any function to get largest number with no fraction part that is not greater than the value
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Floor" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "floor(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
579
|
Is there any function to round the values base on the .5 value
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Round" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "round(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
578
|
How can I get or display the integer part of the cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Int" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "int(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
577
|
How can I display names as proper ( first leter of the word must be in uppercase, and the rest in lowercase )
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "proper(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "root" to h
Get ComInsertItem of hoItems h "child child" to Nothing
Get ComInsertItem of hoItems h "child child" to Nothing
Get ComInsertItem of hoItems h "child child" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
576
|
Is there any option to display cells in uppercase
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "upper(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Chld 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
575
|
Is there any option to display cells in lowercase
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "lower(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Chld 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
574
|
How can I display the column using currency format and enlarge the font for certain values
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Currency" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Set ComFormatColumn of hoColumn to "len(value) ? ((0:=dbl(value)) < 10 ? '<fgcolor=808080><font ;7>' : '<b>') + currency(=:0)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Get ComAddItem of hoItems "9.94" to Nothing
Get ComAddItem of hoItems "11.94" to Nothing
Get ComAddItem of hoItems "1000" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
573
|
How can I highlight only parts of the cells
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Set ComFormatColumn of hoColumn to "value replace 'hil' with '<fgcolor=FF0000><b>hil</b></fgcolor>'"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Child 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
572
|
How can I get the number of occurrences of a specified string in the cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "occurrences" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "lower(%0) count 'o'"
Set ComFormatColumn of hoColumn to "'contains ' + value + ' of \'o\' chars'"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1 oooof the root" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Child 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
571
|
How can I display dates in my format
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Date" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Set ComFormatColumn of hoColumn to "'<b>' + year(0:=date(value)) + '</b><fgcolor=808080><font ;6> (' + month(=:0) + ' - ' + day(=:0) +')'"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/21/2001" to Nothing
Get ComAddItem of hoItems "2/22/2002" to Nothing
Get ComAddItem of hoItems "3/13/2003" to Nothing
Get ComAddItem of hoItems "4/24/2004" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
570
|
How can I display dates in short format
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Date" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "shortdate(value)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001" to Nothing
Get ComAddItem of hoItems "2/2/2002" to Nothing
Get ComAddItem of hoItems "3/3/2003" to Nothing
Get ComAddItem of hoItems "4/4/2004" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
569
|
How can I display dates in long format
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Date" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "longdate(value)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001" to Nothing
Get ComAddItem of hoItems "2/2/2002" to Nothing
Get ComAddItem of hoItems "3/3/2003" to Nothing
Get ComAddItem of hoItems "4/4/2004" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
568
|
How can I display only the right part of the cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Right" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "%0 right 2"
Set ComFormatColumn of hoColumn to "'"' + value + '"'"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "SChild 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
567
|
How can I display only the left part of the cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Left" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "%0 left 2"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "SChild 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
566
|
How can I display true or false instead 0 and -1
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Boolean" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "value != 0 ? 'true' : 'false'"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems true to Nothing
Get ComAddItem of hoItems false to Nothing
Get ComAddItem of hoItems true to Nothing
Get ComAddItem of hoItems 0 to Nothing
Get ComAddItem of hoItems 1 to Nothing
Send Destroy to hoItems
End_Procedure
|
|
565
|
How can I save data on XML format
Procedure OnCreate
Forward Send OnCreate
Get ComLoadXML "http://www.exontrol.net/testing.xml" to Nothing
Get ComSaveXML "c:/temp/exgrid.xml" to Nothing
End_Procedure
|
|
564
|
How can I load data on XML format
Procedure OnCreate
Forward Send OnCreate
Get ComLoadXML "http://www.exontrol.net/testing.xml" to Nothing
End_Procedure
|
|
563
|
I have an EBN file how can I apply different colors to it, so no need to create a new one
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComSelBackColor to (ComBackColor(Self))
Set ComSelForeColor to (ComForeColor(Self))
Set ComHasLines to OLEexNoLine
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Variant hC
Get ComInsertItem of hoItems h "Default" to hC
Set ComItemBackColor of hoItems hC to |CI$1000000
Set ComItemHeight of hoItems (ComInsertItem(hoItems,h,"")) to 6
Get ComInsertItem of hoItems h "Light Green" to hC
Set ComItemBackColor of hoItems hC to |CI$100ff00
Set ComItemHeight of hoItems (ComInsertItem(hoItems,h,"")) to 6
Get ComInsertItem of hoItems h "Dark Green" to hC
Set ComItemBackColor of hoItems hC to |CI$1007f00
Set ComItemHeight of hoItems (ComInsertItem(hoItems,h,"")) to 6
Get ComInsertItem of hoItems h "Magenta" to hC
Set ComItemBackColor of hoItems hC to |CI$1ff7fff
Set ComItemHeight of hoItems (ComInsertItem(hoItems,h,"")) to 6
Get ComInsertItem of hoItems h "Yellow" to hC
Set ComItemBackColor of hoItems hC to |CI$17fffff
Set ComItemHeight of hoItems (ComInsertItem(hoItems,h,"")) to 6
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
562
|
How can I change the background color or the visual appearance using ebn for a particular column
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Column 2" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexHeaderBackColor to 16777216
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Column 3" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexHeaderBackColor to 16777471
Send Destroy to hoColumn1
Get ComAdd of hoColumns "Column 4" to Nothing
Send Destroy to hoColumns
End_Procedure
|
|
561
|
How can I change the foreground color for a particular column
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Column 2" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexHeaderForeColor to 8439039
Send Destroy to hoColumn
Get ComAdd of hoColumns "Column 3" to Nothing
Send Destroy to hoColumns
End_Procedure
|
|
560
|
How can I change the background color for a particular column
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Column 2" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexHeaderBackColor to 8439039
Send Destroy to hoColumn
Get ComAdd of hoColumns "Column 3" to Nothing
Send Destroy to hoColumns
End_Procedure
|
|
559
|
Does your control support RightToLeft property for RTL languages or right to left
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComScrollBars to OLEexDisableBoth
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "P1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Set ComRightToLeft to True
Send ComEndUpdate
End_Procedure
|
|
558
|
Is there any way to display the vertical scroll bar on the left side, as I want to align my data to the right
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComScrollBars to OLEexDisableBoth
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Get ComAdd of hoColumns "C2" to Nothing
Get ComAdd of hoColumns "C3" to Nothing
Get ComAdd of hoColumns "C4" to Nothing
Get ComAdd of hoColumns "C5" to Nothing
Get ComAdd of hoColumns "C6" to Nothing
Get ComAdd of hoColumns "C7" to Nothing
Get ComAdd of hoColumns "C8" to Nothing
Send Destroy to hoColumns
Set ComRightToLeft to True
Send ComEndUpdate
End_Procedure
|
|
557
|
Can I display the cell's check box after the text
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Set ComDef of hoColumn OLEexCellDrawPartsOrder to "caption,check"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellHasCheckBox of hoItems (ComAddItem(hoItems,"Caption 1")) 0 to True
Set ComCellHasCheckBox of hoItems (ComAddItem(hoItems,"Caption 2")) 0 to True
Send Destroy to hoItems
End_Procedure
|
|
556
|
Can I change the order of the parts in the cell, as checkbox after the text, and so on
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellDrawPartsOrder to "caption,check,icon,icons,picture"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Text" to h
Set ComCellImage of hoItems h 0 to 1
Set ComCellHasCheckBox of hoItems h 0 to True
Send Destroy to hoItems
End_Procedure
|
|
555
|
Can I have an image displayed after the text. Can I get that effect without using HTML content
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellDrawPartsOrder to "caption,icon,check,icons,picture"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Text" to h
Set ComCellImage of hoItems h 0 to 1
Send Destroy to hoItems
End_Procedure
|
|
554
|
How can I display the column's header using multiple lines
Procedure OnCreate
Forward Send OnCreate
Set ComHeaderHeight to 128
Set ComHeaderSingleLine to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "This is just a column that should break the header." to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "This is just another column that should break the header." to Nothing
Send Destroy to hoColumns1
End_Procedure
|
|
553
|
How can include the values in the inner cells in the drop down filter window
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexRowLines
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComDescription OLEexFilterBarBlanks to ""
Set ComDescription OLEexFilterBarNonBlanks to ""
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Single Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComHTMLCaption of hoColumn to "Single column with <b>inner cells</b>"
Set ComToolTip of hoColumn to "Click the drop down filter button, and the filter list includes the inner cells values too."
Set ComDisplayFilterButton of hoColumn to True
Set ComDisplayFilterPattern of hoColumn to False
Set ComFilterList of hoColumn to OLEexIncludeInnerCells
Send Destroy to hoColumn
Send Destroy to hoColumns
Set ComShowFocusRect to False
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant s
Get ComSplitCell of hoItems (ComAddItem(hoItems,"S 1.1")) 0 to s
Set ComCellValue of hoItems s to "S 1.2"
Set ComCellHAlignment of hoItems s to OLECenterAlignment
Set ComCellBackColor of hoItems s to |CI$1000000
Set ComCellWidth of hoItems s to 84
Get ComSplitCell of hoItems (ComAddItem(hoItems,"S 2.1")) 0 to s
Set ComCellValue of hoItems s to "S 2.2"
Set ComCellHAlignment of hoItems s to OLECenterAlignment
Set ComCellWidth of hoItems s to 84
Get ComSplitCell of hoItems (ComAddItem(hoItems,"S 3.1")) 0 to s
Set ComCellValue of hoItems s to "S 3.2"
Set ComCellHAlignment of hoItems s to OLECenterAlignment
Set ComCellBackColor of hoItems s to |CI$1000000
Set ComCellWidth of hoItems s to 84
Send Destroy to hoItems
End_Procedure
|
|
552
|
How can I sort the value gets listed in the drop down filter window
Procedure OnCreate
Forward Send OnCreate
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComMarkSearchColumn to False
Set ComDescription OLEexFilterBarAll to ""
Set ComDescription OLEexFilterBarBlanks to ""
Set ComDescription OLEexFilterBarNonBlanks to ""
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "P1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComDisplayFilterPattern of hoColumn to False
Set ComFilterList of hoColumn to OLEexSortItemsDesc
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "P2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDisplayFilterButton of hoColumn1 to True
Set ComDisplayFilterPattern of hoColumn1 to False
Set ComFilterList of hoColumn1 to OLEexSortItemsAsc
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Z3" to h
Set ComCellValue of hoItems h 1 to "C"
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Z1")) 1 to "B"
Set ComCellValue of hoItems (ComInsertItem(hoItems,h,"Z2")) 1 to "A"
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
551
|
How can I align the text/caption on the scroll bar
Procedure OnCreate
Forward Send OnCreate
Set ComScrollPartCaption OLEexHScroll OLEexLowerBackPart to "left"
Set ComScrollPartCaptionAlignment OLEexHScroll OLEexLowerBackPart to OLELeftAlignment
Set ComScrollPartCaption OLEexHScroll OLEexUpperBackPart to "right"
Set ComScrollPartCaptionAlignment OLEexHScroll OLEexUpperBackPart to OLERightAlignment
Set ComColumnAutoResize to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns 1 to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 2 to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Get ComAdd of hoColumns2 3 to Nothing
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Get ComAdd of hoColumns3 4 to Nothing
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Get ComAdd of hoColumns4 5 to Nothing
Send Destroy to hoColumns4
Variant voColumns5
Get ComColumns to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Get ComAdd of hoColumns5 6 to Nothing
Send Destroy to hoColumns5
End_Procedure
|
|
550
|
How do I select the next row/item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 1" to Nothing
Get ComAddItem of hoItems "Item 2" to Nothing
Get ComAddItem of hoItems "Item 3" to Nothing
Set ComSelectItem of hoItems (ComNextVisibleItem(hoItems,(ComFocusItem(hoItems)))) to True
Send Destroy to hoItems
End_Procedure
|
|
549
|
How do I enable resizing ( changing the height ) the items at runtime
Procedure OnCreate
Forward Send OnCreate
Set ComItemsAllowSizing to OLEexResizeItem
Set ComDrawGridLines to OLEexHLines
Set ComScrollBySingleLine to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 1" to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComItemHeight of hoItems1 (ComAddItem(hoItems1,"Item 2")) to 48
Send Destroy to hoItems1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAddItem of hoItems2 "Item 3" to Nothing
Send Destroy to hoItems2
Variant voItems3
Get ComItems to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Get ComAddItem of hoItems3 "Item 4" to Nothing
Send Destroy to hoItems3
End_Procedure
|
|
548
|
How do I enable resizing all the items at runtime
Procedure OnCreate
Forward Send OnCreate
Set ComItemsAllowSizing to OLEexResizeAllItems
Set ComDrawGridLines to OLEexHLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 1" to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComItemHeight of hoItems1 (ComAddItem(hoItems1,"Item 2")) to 48
Send Destroy to hoItems1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAddItem of hoItems2 "Item 3" to Nothing
Send Destroy to hoItems2
End_Procedure
|
|
547
|
How can I remove the filter
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComFilterType of hoColumn to OLEexBlanks
Send Destroy to hoColumn
Send Destroy to hoColumns
Send ComApplyFilter
Send ComClearFilter
End_Procedure
|
|
546
|
How can I vertically display the column's caption, in the header
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "A" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComHeaderVertical of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "B" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComHeaderVertical of hoColumn1 to True
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "H" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComHeaderVertical of hoColumn2 to False
Send Destroy to hoColumn2
Send Destroy to hoColumns2
End_Procedure
|
|
545
|
When I have a column in a grid that is set to having a checkbox, and the grid's singlesel is set to false, I am able to toggle the checkboxes for a while, but lose this functionality eventually. Do you have a tip
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Check" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Set ComSingleSel to False
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems True to Nothing
Get ComAddItem of hoItems False to Nothing
Get ComAddItem of hoItems False to Nothing
Send Destroy to hoItems
End_Procedure
|
|
544
|
How do I arrange, format or layout the item on multiple levels or lines, as a subform
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComDrawGridLines to OLEexRowLines
Set ComHeaderVisible to False
Set ComItemsAllowSizing to OLEexResizeItem
Set ComMarkSearchColumn to False
Set ComScrollBySingleLine to True
Set ComBackColor to (RGB(255,255,255))
Set ComSelBackColor to (RGB(255,255,255))
Set ComSelForeColor to |CI$80000012
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Variant var_Column
Get ComAdd of hoColumns "Column" to var_Column
Set ComVisible of hoColumns to False
Variant voEditor
Get ComEditor of hoColumns to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLEEditType
Send Destroy to hoEditor
Send Destroy to hoColumns
Variant var_Column1
Get ComAdd "Column" to var_Column1
Set ComVisible to False
Variant voEditor1
Get ComEditor to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLEDropDownType
Send Destroy to hoEditor1
Variant var_Column2
Get ComAdd "Column" to var_Column2
Set ComVisible to False
Variant voEditor2
Get ComEditor to voEditor2
Handle hoEditor2
Get Create (RefClass(cComEditor)) to hoEditor2
Set pvComObject of hoEditor2 to voEditor2
Set ComEditType of hoEditor2 to OLEDropDownType
Send Destroy to hoEditor2
Variant var_Column3
Get ComAdd "Column" to var_Column3
Set ComVisible to False
Variant voEditor3
Get ComEditor to voEditor3
Handle hoEditor3
Get Create (RefClass(cComEditor)) to hoEditor3
Set pvComObject of hoEditor3 to voEditor3
Set ComEditType of hoEditor3 to OLECheckValueType
Set ComOption of hoEditor3 OLEexCheckValue2 to 1
Send Destroy to hoEditor3
Variant var_Column4
Get ComAdd "Column" to var_Column4
Set ComVisible to False
Variant voEditor4
Get ComEditor to voEditor4
Handle hoEditor4
Get Create (RefClass(cComEditor)) to hoEditor4
Set pvComObject of hoEditor4 to voEditor4
Set ComEditType of hoEditor4 to OLEDateType
Send Destroy to hoEditor4
Variant voColumn
Get ComAdd "Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Variant var_Column5
Get ComAdd "Column" to var_Column5
Set ComVisible to False
Variant voEditor5
Get ComEditor to voEditor5
Handle hoEditor5
Get Create (RefClass(cComEditor)) to hoEditor5
Set pvComObject of hoEditor5 to voEditor5
Set ComEditType of hoEditor5 to OLEDropDownType
Send Destroy to hoEditor5
Variant var_Column6
Get ComAdd "Column" to var_Column6
Set ComVisible to False
Set ComDef OLEexCellSingleLine to 0
Variant var_Editor
Get ComEditor to var_Editor
Set ComEditType to OLEMemoType
Set ComButtonWidth to 17
Set ComOption OLEexDownArrow to 0
Set ComOption OLEexEndKey to 0
Set ComOption OLEexHomeKey to 0
Set ComOption OLEexLeftArrow to 0
Set ComOption OLEexMemoAutoSize to 0
Set ComOption OLEexMemoVScrollBar to -1
Set ComOption OLEexPageDownKey to 0
Set ComOption OLEexPageUpKey to 0
Set ComOption OLEexRightArrow to 0
Set ComOption OLEexUpArrow to 0
Set ComVisible to False
Variant voColumn1
Get ComAdd "Column" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h0
Get ComAddItem of hoItems "" to h0
Set ComCellValue of hoItems h0 9 to "Dismiss"
Set ComCellFormatLevel of hoItems h0 0 to "12;" "[b=0][bg=RGB(248,248,248)]/(" "[b=0][bg=RGB(248,248,248)]:12,(1;" "[b=0]/(" "[b=0]:1,(25;(5;" "[b=0]/(("Subject:"[b=0]:80,(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,(" "[b=0][bg=RGB(255,0,0)]:5,1[b=0])," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,0)]))/1;" "[b=0]))/20;("Location:"[b=0]:80,(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,2[b=0]," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,0)]),((" "[b=0]:10,"Label:"[b=0])):50,(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,3[b=0]," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,0)]))/50;(10;" "[b=0]/(1;" "[b=0][bg=RGB(255,0,0)]/("Recurrence:"[b=0]:80,"Occurs every day effective 20/04/2007 from 01:00 to 01:01."[b=0])/1;" "[b=0][bg=RGB(255,0,0)])/10;" "[b=0])/23;(4[b=0]:20,"Reminder:"[b=0]:60,(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,5[b=0]," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,0)]),((" "[b=0]:5,6[b=0])):30,((" "[b=0]:10,"Show time as:"[b=0])):90,(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,7[b=0]," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,0)]))/(12;" "[b=0]/(1;" "[b=0][bg=RGB(0,0,0)]/(" "[b=0][bg=RGB(0,0,0)]:1,8[b=0]," "[b=0][bg=RGB(0,0,0)]:1)/1;" "[b=0][bg=RGB(0,0,0)]))/35;(5;" "[b=0]/(" "[b=0]," "[b=0],((" "[b=0]:40,9[b=0])))/5;" "[b=0]))," "[b=0]:1)/1;" "[b=0])," "[b=0][bg=RGB(248,248,248)]:12)/12;" "[b=0][bg=RGB(248,248,248)]"
Set ComCellHasCheckBox of hoItems h0 4 to True
Set ComCellHasButton of hoItems h0 9 to True
Set ComCellHAlignment of hoItems h0 9 to OLECenterAlignment
Set ComCellVAlignment of hoItems h0 8 to OLEexTop
Set ComCellForeColor of hoItems h0 8 to (RGB(0,0,0))
Set ComCellHasButton of hoItems h0 6 to True
Set ComCellValue of hoItems h0 6 to "<img>1</img>"
Set ComCellValueFormat of hoItems h0 6 to OLEexHTML
Set ComCellHAlignment of hoItems h0 6 to OLECenterAlignment
Set ComItemHeight of hoItems h0 to 296
Send Destroy to hoItems
End_Procedure
|
|
543
|
How do I arrange, format or layout the item on multiple levels or lines
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComMarkSearchColumn to False
Set ComDefaultItemHeight to 34
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns 1 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 2 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 3 to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComVisible of hoColumn2 to False
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 4 to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComVisible of hoColumn3 to False
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Variant voColumn4
Get ComAdd of hoColumns4 5 to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComVisible of hoColumn4 to False
Send Destroy to hoColumn4
Send Destroy to hoColumns4
Variant voColumns5
Get ComColumns to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Get ComAdd of hoColumns5 "General" to Nothing
Send Destroy to hoColumns5
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComDefaultItem of hoItems to (ComAddItem(hoItems,0))
Set ComCellValue of hoItems 0 1 to 1
Set ComCellValue of hoItems 0 2 to 2
Set ComCellValue of hoItems 0 3 to 3
Set ComCellValue of hoItems 0 4 to 4
Set ComCellFormatLevel of hoItems (ComDefaultItem(hoItems)) 5 to "0,1,2/3,4"
Set ComDefaultItem of hoItems to (ComAddItem(hoItems,5))
Set ComCellValue of hoItems 0 1 to 6
Set ComCellValue of hoItems 0 2 to 7
Set ComCellValue of hoItems 0 3 to 8
Set ComCellValue of hoItems 0 4 to 9
Set ComCellFormatLevel of hoItems (ComDefaultItem(hoItems)) 5 to "3,4/0,1,2"
Send Destroy to hoItems
End_Procedure
|
|
542
|
How do I arrange, format or layout the column's header on multiple levels or lines
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns 1 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 2 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 3 to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComVisible of hoColumn2 to False
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 4 to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComVisible of hoColumn3 to False
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Variant voColumn4
Get ComAdd of hoColumns4 5 to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComVisible of hoColumn4 to False
Send Destroy to hoColumn4
Send Destroy to hoColumns4
Set ComHeaderHeight to 32
Variant voColumns5
Get ComColumns to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Variant voColumn5
Get ComAdd of hoColumns5 "General" to voColumn5
Handle hoColumn5
Get Create (RefClass(cComColumn)) to hoColumn5
Set pvComObject of hoColumn5 to voColumn5
Set ComFormatLevel of hoColumn5 to "0,1,2/3,4"
Send Destroy to hoColumn5
Send Destroy to hoColumns5
End_Procedure
|
|
541
|
How do I arrange, format or layout the item on multiple levels or lines
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSearchColumn to False
Set ComDrawGridLines to OLEexAllLines
Set ComDefaultItemHeight to 53
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "EmployeeID" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "LastName" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "FirstName" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComVisible of hoColumn2 to False
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 "Handler" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComVisible of hoColumn3 to False
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant v
Variant voColumns4
Get ComColumns to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Get ComAdd of hoColumns4 "Title" to v
Send Destroy to hoColumns4
Variant var_Column
Move v to var_Column
Set ComVisible to False
Set ComDisplayFilterButton to True
Variant v1
Variant voColumns5
Get ComColumns to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Get ComAdd of hoColumns5 "TitleOfCourtesy" to v1
Send Destroy to hoColumns5
Variant var_Column1
Move v1 to var_Column1
Set ComVisible to False
Set ComDisplayFilterButton to True
Variant voColumns6
Get ComColumns to voColumns6
Handle hoColumns6
Get Create (RefClass(cComColumns)) to hoColumns6
Set pvComObject of hoColumns6 to voColumns6
Variant voColumn4
Get ComAdd of hoColumns6 "BirthDate" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComVisible of hoColumn4 to False
Send Destroy to hoColumn4
Send Destroy to hoColumns6
Variant voColumns7
Get ComColumns to voColumns7
Handle hoColumns7
Get Create (RefClass(cComColumns)) to hoColumns7
Set pvComObject of hoColumns7 to voColumns7
Variant voColumn5
Get ComAdd of hoColumns7 "HideDate" to voColumn5
Handle hoColumn5
Get Create (RefClass(cComColumn)) to hoColumn5
Set pvComObject of hoColumn5 to voColumn5
Set ComVisible of hoColumn5 to False
Send Destroy to hoColumn5
Send Destroy to hoColumns7
Variant voColumns8
Get ComColumns to voColumns8
Handle hoColumns8
Get Create (RefClass(cComColumns)) to hoColumns8
Set pvComObject of hoColumns8 to voColumns8
Variant voColumn6
Get ComAdd of hoColumns8 "Address" to voColumn6
Handle hoColumn6
Get Create (RefClass(cComColumn)) to hoColumn6
Set pvComObject of hoColumn6 to voColumn6
Set ComVisible of hoColumn6 to False
Send Destroy to hoColumn6
Send Destroy to hoColumns8
Variant voColumns9
Get ComColumns to voColumns9
Handle hoColumns9
Get Create (RefClass(cComColumns)) to hoColumns9
Set pvComObject of hoColumns9 to voColumns9
Variant voColumn7
Get ComAdd of hoColumns9 "City" to voColumn7
Handle hoColumn7
Get Create (RefClass(cComColumn)) to hoColumn7
Set pvComObject of hoColumn7 to voColumn7
Set ComVisible of hoColumn7 to False
Send Destroy to hoColumn7
Send Destroy to hoColumns9
Variant voColumns10
Get ComColumns to voColumns10
Handle hoColumns10
Get Create (RefClass(cComColumns)) to hoColumns10
Set pvComObject of hoColumns10 to voColumns10
Variant voColumn8
Get ComAdd of hoColumns10 "Region" to voColumn8
Handle hoColumn8
Get Create (RefClass(cComColumn)) to hoColumn8
Set pvComObject of hoColumn8 to voColumn8
Set ComVisible of hoColumn8 to False
Send Destroy to hoColumn8
Send Destroy to hoColumns10
Variant voColumns11
Get ComColumns to voColumns11
Handle hoColumns11
Get Create (RefClass(cComColumns)) to hoColumns11
Set pvComObject of hoColumns11 to voColumns11
Variant voColumn9
Get ComAdd of hoColumns11 "PostCode" to voColumn9
Handle hoColumn9
Get Create (RefClass(cComColumn)) to hoColumn9
Set pvComObject of hoColumn9 to voColumn9
Set ComVisible of hoColumn9 to False
Send Destroy to hoColumn9
Send Destroy to hoColumns11
Variant voColumns12
Get ComColumns to voColumns12
Handle hoColumns12
Get Create (RefClass(cComColumns)) to hoColumns12
Set pvComObject of hoColumns12 to voColumns12
Variant voColumn10
Get ComAdd of hoColumns12 "Country" to voColumn10
Handle hoColumn10
Get Create (RefClass(cComColumn)) to hoColumn10
Set pvComObject of hoColumn10 to voColumn10
Set ComVisible of hoColumn10 to False
Send Destroy to hoColumn10
Send Destroy to hoColumns12
Variant voColumns13
Get ComColumns to voColumns13
Handle hoColumns13
Get Create (RefClass(cComColumns)) to hoColumns13
Set pvComObject of hoColumns13 to voColumns13
Variant voColumn11
Get ComAdd of hoColumns13 "HomePage" to voColumn11
Handle hoColumn11
Get Create (RefClass(cComColumn)) to hoColumn11
Set pvComObject of hoColumn11 to voColumn11
Set ComVisible of hoColumn11 to False
Send Destroy to hoColumn11
Send Destroy to hoColumns13
Variant voColumns14
Get ComColumns to voColumns14
Handle hoColumns14
Get Create (RefClass(cComColumns)) to hoColumns14
Set pvComObject of hoColumns14 to voColumns14
Variant voColumn12
Get ComAdd of hoColumns14 "Extension" to voColumn12
Handle hoColumn12
Get Create (RefClass(cComColumn)) to hoColumn12
Set pvComObject of hoColumn12 to voColumn12
Set ComVisible of hoColumn12 to False
Send Destroy to hoColumn12
Send Destroy to hoColumns14
Variant v2
Variant voColumns15
Get ComColumns to voColumns15
Handle hoColumns15
Get Create (RefClass(cComColumns)) to hoColumns15
Set pvComObject of hoColumns15 to voColumns15
Get ComAdd of hoColumns15 "Photo" to v2
Send Destroy to hoColumns15
Variant var_Column2
Move v2 to var_Column2
Set ComVisible to False
Variant voEditor
Get ComEditor to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComDropDownVisible of hoEditor to False
Set ComEditType of hoEditor to OLEPictureType
Set ComOption of hoEditor OLEexShowPictureType to 0
Send Destroy to hoEditor
Variant voColumns16
Get ComColumns to voColumns16
Handle hoColumns16
Get Create (RefClass(cComColumns)) to hoColumns16
Set pvComObject of hoColumns16 to voColumns16
Variant voColumn13
Get ComAdd of hoColumns16 "Notes" to voColumn13
Handle hoColumn13
Get Create (RefClass(cComColumn)) to hoColumn13
Set pvComObject of hoColumn13 to voColumn13
Set ComVisible of hoColumn13 to False
Send Destroy to hoColumn13
Send Destroy to hoColumns16
Variant voColumns17
Get ComColumns to voColumns17
Handle hoColumns17
Get Create (RefClass(cComColumns)) to hoColumns17
Set pvComObject of hoColumns17 to voColumns17
Variant voColumn14
Get ComAdd of hoColumns17 "ReportsTo" to voColumn14
Handle hoColumn14
Get Create (RefClass(cComColumn)) to hoColumn14
Set pvComObject of hoColumn14 to voColumn14
Set ComVisible of hoColumn14 to False
Send Destroy to hoColumn14
Send Destroy to hoColumns17
Variant voColumns18
Get ComColumns to voColumns18
Handle hoColumns18
Get Create (RefClass(cComColumns)) to hoColumns18
Set pvComObject of hoColumns18 to voColumns18
Variant voColumn15
Get ComAdd of hoColumns18 "Personal Info" to voColumn15
Handle hoColumn15
Get Create (RefClass(cComColumn)) to hoColumn15
Set pvComObject of hoColumn15 to voColumn15
Set ComDef of hoColumn15 OLEexCellFormatLevel to "15:54,(2/1/4)"
Set ComFormatLevel of hoColumn15 to "18;18/(15:54,(2/1/4))"
Set ComWidth of hoColumn15 to 196
Send Destroy to hoColumn15
Send Destroy to hoColumns18
Variant voColumns19
Get ComColumns to voColumns19
Handle hoColumns19
Get Create (RefClass(cComColumns)) to hoColumns19
Set pvComObject of hoColumns19 to voColumns19
Variant voColumn16
Get ComAdd of hoColumns19 "General Info" to voColumn16
Handle hoColumn16
Get Create (RefClass(cComColumn)) to hoColumn16
Set pvComObject of hoColumn16 to voColumn16
Set ComDef of hoColumn16 OLEexCellFormatLevel to "(8/18;5):128,((((13/11/12),(6/7/10)),16))"
Set ComFormatLevel of hoColumn16 to "18;19/((8/18;5):128,((((13/11/12),(6/7/10)),16)))"
Set ComWidth of hoColumn16 to 512
Send Destroy to hoColumn16
Send Destroy to hoColumns19
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h0
Get ComAddItem of hoItems 1 to h0
Set ComCellValue of hoItems h0 1 to "Davolio"
Set ComCellValue of hoItems h0 2 to "Nancy"
Set ComCellValue of hoItems h0 3 to 0
Set ComCellValue of hoItems h0 4 to "Sales Representative"
Set ComCellValue of hoItems h0 5 to "Ms."
Set ComCellValue of hoItems h0 6 to "12/8/1948"
Set ComCellValue of hoItems h0 7 to "5/1/1992"
Set ComCellValue of hoItems h0 8 to "507-20th Ave. \r\nE.Apt. 2A"
Set ComCellValue of hoItems h0 9 to "Seattle"
Set ComCellValue of hoItems h0 10 to "WA"
Set ComCellValue of hoItems h0 11 to "98122"
Set ComCellValue of hoItems h0 12 to "USA"
Set ComCellValue of hoItems h0 13 to "(206) 555-9857"
Set ComCellValue of hoItems h0 14 to "5467"
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\sample.bmp`)" to vPicture
Set ComCellValue of hoItems h0 15 to (vPicture)
Set ComCellValue of hoItems h0 16 to "Education includes a BA in psychology from Colorado State University in 1970. She also completed "The Art of the Cold Call." Nancy is a member of ToastmastersInternational."
Set ComCellValue of hoItems h0 17 to 2
Send Destroy to hoItems
Send ComPutItems (ComGetItems(Self,0)) Nothing
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellFormatLevel of hoItems1 (ComFocusItem(hoItems1)) "General Info" to "15,10,4"
Set ComCellFormatLevel of hoItems1 (ComFocusItem(hoItems1)) "Personal Info" to "1/2"
Send Destroy to hoItems1
End_Procedure
|
|
540
|
How do I arrange, format or layout the data on multiple levels or lines
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSearchColumn to False
Set ComDrawGridLines to OLEexAllLines
Set ComDefaultItemHeight to 53
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "EmployeeID" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "LastName" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "FirstName" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComVisible of hoColumn2 to False
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 "Handler" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComVisible of hoColumn3 to False
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant v
Variant voColumns4
Get ComColumns to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Get ComAdd of hoColumns4 "Title" to v
Send Destroy to hoColumns4
Variant var_Column
Move v to var_Column
Set ComVisible to False
Set ComDisplayFilterButton to True
Variant v1
Variant voColumns5
Get ComColumns to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Get ComAdd of hoColumns5 "TitleOfCourtesy" to v1
Send Destroy to hoColumns5
Variant var_Column1
Move v1 to var_Column1
Set ComVisible to False
Set ComDisplayFilterButton to True
Variant voColumns6
Get ComColumns to voColumns6
Handle hoColumns6
Get Create (RefClass(cComColumns)) to hoColumns6
Set pvComObject of hoColumns6 to voColumns6
Variant voColumn4
Get ComAdd of hoColumns6 "BirthDate" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComVisible of hoColumn4 to False
Send Destroy to hoColumn4
Send Destroy to hoColumns6
Variant voColumns7
Get ComColumns to voColumns7
Handle hoColumns7
Get Create (RefClass(cComColumns)) to hoColumns7
Set pvComObject of hoColumns7 to voColumns7
Variant voColumn5
Get ComAdd of hoColumns7 "HideDate" to voColumn5
Handle hoColumn5
Get Create (RefClass(cComColumn)) to hoColumn5
Set pvComObject of hoColumn5 to voColumn5
Set ComVisible of hoColumn5 to False
Send Destroy to hoColumn5
Send Destroy to hoColumns7
Variant voColumns8
Get ComColumns to voColumns8
Handle hoColumns8
Get Create (RefClass(cComColumns)) to hoColumns8
Set pvComObject of hoColumns8 to voColumns8
Variant voColumn6
Get ComAdd of hoColumns8 "Address" to voColumn6
Handle hoColumn6
Get Create (RefClass(cComColumn)) to hoColumn6
Set pvComObject of hoColumn6 to voColumn6
Set ComVisible of hoColumn6 to False
Send Destroy to hoColumn6
Send Destroy to hoColumns8
Variant voColumns9
Get ComColumns to voColumns9
Handle hoColumns9
Get Create (RefClass(cComColumns)) to hoColumns9
Set pvComObject of hoColumns9 to voColumns9
Variant voColumn7
Get ComAdd of hoColumns9 "City" to voColumn7
Handle hoColumn7
Get Create (RefClass(cComColumn)) to hoColumn7
Set pvComObject of hoColumn7 to voColumn7
Set ComVisible of hoColumn7 to False
Send Destroy to hoColumn7
Send Destroy to hoColumns9
Variant voColumns10
Get ComColumns to voColumns10
Handle hoColumns10
Get Create (RefClass(cComColumns)) to hoColumns10
Set pvComObject of hoColumns10 to voColumns10
Variant voColumn8
Get ComAdd of hoColumns10 "Region" to voColumn8
Handle hoColumn8
Get Create (RefClass(cComColumn)) to hoColumn8
Set pvComObject of hoColumn8 to voColumn8
Set ComVisible of hoColumn8 to False
Send Destroy to hoColumn8
Send Destroy to hoColumns10
Variant voColumns11
Get ComColumns to voColumns11
Handle hoColumns11
Get Create (RefClass(cComColumns)) to hoColumns11
Set pvComObject of hoColumns11 to voColumns11
Variant voColumn9
Get ComAdd of hoColumns11 "PostCode" to voColumn9
Handle hoColumn9
Get Create (RefClass(cComColumn)) to hoColumn9
Set pvComObject of hoColumn9 to voColumn9
Set ComVisible of hoColumn9 to False
Send Destroy to hoColumn9
Send Destroy to hoColumns11
Variant voColumns12
Get ComColumns to voColumns12
Handle hoColumns12
Get Create (RefClass(cComColumns)) to hoColumns12
Set pvComObject of hoColumns12 to voColumns12
Variant voColumn10
Get ComAdd of hoColumns12 "Country" to voColumn10
Handle hoColumn10
Get Create (RefClass(cComColumn)) to hoColumn10
Set pvComObject of hoColumn10 to voColumn10
Set ComVisible of hoColumn10 to False
Send Destroy to hoColumn10
Send Destroy to hoColumns12
Variant voColumns13
Get ComColumns to voColumns13
Handle hoColumns13
Get Create (RefClass(cComColumns)) to hoColumns13
Set pvComObject of hoColumns13 to voColumns13
Variant voColumn11
Get ComAdd of hoColumns13 "HomePage" to voColumn11
Handle hoColumn11
Get Create (RefClass(cComColumn)) to hoColumn11
Set pvComObject of hoColumn11 to voColumn11
Set ComVisible of hoColumn11 to False
Send Destroy to hoColumn11
Send Destroy to hoColumns13
Variant voColumns14
Get ComColumns to voColumns14
Handle hoColumns14
Get Create (RefClass(cComColumns)) to hoColumns14
Set pvComObject of hoColumns14 to voColumns14
Variant voColumn12
Get ComAdd of hoColumns14 "Extension" to voColumn12
Handle hoColumn12
Get Create (RefClass(cComColumn)) to hoColumn12
Set pvComObject of hoColumn12 to voColumn12
Set ComVisible of hoColumn12 to False
Send Destroy to hoColumn12
Send Destroy to hoColumns14
Variant v2
Variant voColumns15
Get ComColumns to voColumns15
Handle hoColumns15
Get Create (RefClass(cComColumns)) to hoColumns15
Set pvComObject of hoColumns15 to voColumns15
Get ComAdd of hoColumns15 "Photo" to v2
Send Destroy to hoColumns15
Variant var_Column2
Move v2 to var_Column2
Set ComVisible to False
Variant voEditor
Get ComEditor to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComDropDownVisible of hoEditor to False
Set ComEditType of hoEditor to OLEPictureType
Set ComOption of hoEditor OLEexShowPictureType to 0
Send Destroy to hoEditor
Variant voColumns16
Get ComColumns to voColumns16
Handle hoColumns16
Get Create (RefClass(cComColumns)) to hoColumns16
Set pvComObject of hoColumns16 to voColumns16
Variant voColumn13
Get ComAdd of hoColumns16 "Notes" to voColumn13
Handle hoColumn13
Get Create (RefClass(cComColumn)) to hoColumn13
Set pvComObject of hoColumn13 to voColumn13
Set ComVisible of hoColumn13 to False
Send Destroy to hoColumn13
Send Destroy to hoColumns16
Variant voColumns17
Get ComColumns to voColumns17
Handle hoColumns17
Get Create (RefClass(cComColumns)) to hoColumns17
Set pvComObject of hoColumns17 to voColumns17
Variant voColumn14
Get ComAdd of hoColumns17 "ReportsTo" to voColumn14
Handle hoColumn14
Get Create (RefClass(cComColumn)) to hoColumn14
Set pvComObject of hoColumn14 to voColumn14
Set ComVisible of hoColumn14 to False
Send Destroy to hoColumn14
Send Destroy to hoColumns17
Variant voColumns18
Get ComColumns to voColumns18
Handle hoColumns18
Get Create (RefClass(cComColumns)) to hoColumns18
Set pvComObject of hoColumns18 to voColumns18
Variant voColumn15
Get ComAdd of hoColumns18 "Personal Info" to voColumn15
Handle hoColumn15
Get Create (RefClass(cComColumn)) to hoColumn15
Set pvComObject of hoColumn15 to voColumn15
Set ComDef of hoColumn15 OLEexCellFormatLevel to "15:54,(2/1/4)"
Set ComFormatLevel of hoColumn15 to "18;18/(15:54,(2/1/4))"
Set ComWidth of hoColumn15 to 196
Send Destroy to hoColumn15
Send Destroy to hoColumns18
Variant voColumns19
Get ComColumns to voColumns19
Handle hoColumns19
Get Create (RefClass(cComColumns)) to hoColumns19
Set pvComObject of hoColumns19 to voColumns19
Variant voColumn16
Get ComAdd of hoColumns19 "General Info" to voColumn16
Handle hoColumn16
Get Create (RefClass(cComColumn)) to hoColumn16
Set pvComObject of hoColumn16 to voColumn16
Set ComDef of hoColumn16 OLEexCellFormatLevel to "(8/18;5):128,((((13/11/12),(6/7/10)),16))"
Set ComFormatLevel of hoColumn16 to "18;19/((8/18;5):128,((((13/11/12),(6/7/10)),16)))"
Set ComWidth of hoColumn16 to 512
Send Destroy to hoColumn16
Send Destroy to hoColumns19
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h0
Get ComAddItem of hoItems 1 to h0
Set ComCellValue of hoItems h0 1 to "Davolio"
Set ComCellValue of hoItems h0 2 to "Nancy"
Set ComCellValue of hoItems h0 3 to 0
Set ComCellValue of hoItems h0 4 to "Sales Representative"
Set ComCellValue of hoItems h0 5 to "Ms."
Set ComCellValue of hoItems h0 6 to "12/8/1948"
Set ComCellValue of hoItems h0 7 to "5/1/1992"
Set ComCellValue of hoItems h0 8 to "507-20th Ave. \r\nE.Apt. 2A"
Set ComCellValue of hoItems h0 9 to "Seattle"
Set ComCellValue of hoItems h0 10 to "WA"
Set ComCellValue of hoItems h0 11 to "98122"
Set ComCellValue of hoItems h0 12 to "USA"
Set ComCellValue of hoItems h0 13 to "(206) 555-9857"
Set ComCellValue of hoItems h0 14 to "5467"
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\sample.bmp`)" to vPicture
Set ComCellValue of hoItems h0 15 to (vPicture)
Set ComCellValue of hoItems h0 16 to "Education includes a BA in psychology from Colorado State University in 1970. She also completed "The Art of the Cold Call." Nancy is a member of ToastmastersInternational."
Set ComCellValue of hoItems h0 17 to 2
Send Destroy to hoItems
Send ComPutItems (ComGetItems(Self,0)) Nothing
Send ComPutItems (ComGetItems(Self,0)) Nothing
Send ComPutItems (ComGetItems(Self,0)) Nothing
End_Procedure
|
|
539
|
How do I arrange, format or layout the column's data on multiple levels or lines
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSearchColumn to False
Set ComDrawGridLines to OLEexAllLines
Set ComDefaultItemHeight to 68
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "EmployeeID" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "LastName" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "FirstName" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComVisible of hoColumn2 to False
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 "Handler" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComVisible of hoColumn3 to False
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant v
Variant voColumns4
Get ComColumns to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Get ComAdd of hoColumns4 "Title" to v
Send Destroy to hoColumns4
Variant var_Column
Move v to var_Column
Set ComVisible to False
Set ComDisplayFilterButton to True
Variant v1
Variant voColumns5
Get ComColumns to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Get ComAdd of hoColumns5 "TitleOfCourtesy" to v1
Send Destroy to hoColumns5
Variant var_Column1
Move v1 to var_Column1
Set ComVisible to False
Set ComDisplayFilterButton to True
Variant voColumns6
Get ComColumns to voColumns6
Handle hoColumns6
Get Create (RefClass(cComColumns)) to hoColumns6
Set pvComObject of hoColumns6 to voColumns6
Variant voColumn4
Get ComAdd of hoColumns6 "BirthDate" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComVisible of hoColumn4 to False
Send Destroy to hoColumn4
Send Destroy to hoColumns6
Variant voColumns7
Get ComColumns to voColumns7
Handle hoColumns7
Get Create (RefClass(cComColumns)) to hoColumns7
Set pvComObject of hoColumns7 to voColumns7
Variant voColumn5
Get ComAdd of hoColumns7 "HideDate" to voColumn5
Handle hoColumn5
Get Create (RefClass(cComColumn)) to hoColumn5
Set pvComObject of hoColumn5 to voColumn5
Set ComVisible of hoColumn5 to False
Send Destroy to hoColumn5
Send Destroy to hoColumns7
Variant voColumns8
Get ComColumns to voColumns8
Handle hoColumns8
Get Create (RefClass(cComColumns)) to hoColumns8
Set pvComObject of hoColumns8 to voColumns8
Variant voColumn6
Get ComAdd of hoColumns8 "Address" to voColumn6
Handle hoColumn6
Get Create (RefClass(cComColumn)) to hoColumn6
Set pvComObject of hoColumn6 to voColumn6
Set ComVisible of hoColumn6 to False
Send Destroy to hoColumn6
Send Destroy to hoColumns8
Variant voColumns9
Get ComColumns to voColumns9
Handle hoColumns9
Get Create (RefClass(cComColumns)) to hoColumns9
Set pvComObject of hoColumns9 to voColumns9
Variant voColumn7
Get ComAdd of hoColumns9 "City" to voColumn7
Handle hoColumn7
Get Create (RefClass(cComColumn)) to hoColumn7
Set pvComObject of hoColumn7 to voColumn7
Set ComVisible of hoColumn7 to False
Send Destroy to hoColumn7
Send Destroy to hoColumns9
Variant voColumns10
Get ComColumns to voColumns10
Handle hoColumns10
Get Create (RefClass(cComColumns)) to hoColumns10
Set pvComObject of hoColumns10 to voColumns10
Variant voColumn8
Get ComAdd of hoColumns10 "Region" to voColumn8
Handle hoColumn8
Get Create (RefClass(cComColumn)) to hoColumn8
Set pvComObject of hoColumn8 to voColumn8
Set ComVisible of hoColumn8 to False
Send Destroy to hoColumn8
Send Destroy to hoColumns10
Variant voColumns11
Get ComColumns to voColumns11
Handle hoColumns11
Get Create (RefClass(cComColumns)) to hoColumns11
Set pvComObject of hoColumns11 to voColumns11
Variant voColumn9
Get ComAdd of hoColumns11 "PostCode" to voColumn9
Handle hoColumn9
Get Create (RefClass(cComColumn)) to hoColumn9
Set pvComObject of hoColumn9 to voColumn9
Set ComVisible of hoColumn9 to False
Send Destroy to hoColumn9
Send Destroy to hoColumns11
Variant voColumns12
Get ComColumns to voColumns12
Handle hoColumns12
Get Create (RefClass(cComColumns)) to hoColumns12
Set pvComObject of hoColumns12 to voColumns12
Variant voColumn10
Get ComAdd of hoColumns12 "Country" to voColumn10
Handle hoColumn10
Get Create (RefClass(cComColumn)) to hoColumn10
Set pvComObject of hoColumn10 to voColumn10
Set ComVisible of hoColumn10 to False
Send Destroy to hoColumn10
Send Destroy to hoColumns12
Variant voColumns13
Get ComColumns to voColumns13
Handle hoColumns13
Get Create (RefClass(cComColumns)) to hoColumns13
Set pvComObject of hoColumns13 to voColumns13
Variant voColumn11
Get ComAdd of hoColumns13 "HomePage" to voColumn11
Handle hoColumn11
Get Create (RefClass(cComColumn)) to hoColumn11
Set pvComObject of hoColumn11 to voColumn11
Set ComVisible of hoColumn11 to False
Send Destroy to hoColumn11
Send Destroy to hoColumns13
Variant voColumns14
Get ComColumns to voColumns14
Handle hoColumns14
Get Create (RefClass(cComColumns)) to hoColumns14
Set pvComObject of hoColumns14 to voColumns14
Variant voColumn12
Get ComAdd of hoColumns14 "Extension" to voColumn12
Handle hoColumn12
Get Create (RefClass(cComColumn)) to hoColumn12
Set pvComObject of hoColumn12 to voColumn12
Set ComVisible of hoColumn12 to False
Send Destroy to hoColumn12
Send Destroy to hoColumns14
Variant voColumns15
Get ComColumns to voColumns15
Handle hoColumns15
Get Create (RefClass(cComColumns)) to hoColumns15
Set pvComObject of hoColumns15 to voColumns15
Variant voColumn13
Get ComAdd of hoColumns15 "Photo" to voColumn13
Handle hoColumn13
Get Create (RefClass(cComColumn)) to hoColumn13
Set pvComObject of hoColumn13 to voColumn13
Set ComVisible of hoColumn13 to False
Send Destroy to hoColumn13
Send Destroy to hoColumns15
Variant voColumns16
Get ComColumns to voColumns16
Handle hoColumns16
Get Create (RefClass(cComColumns)) to hoColumns16
Set pvComObject of hoColumns16 to voColumns16
Variant voColumn14
Get ComAdd of hoColumns16 "Notes" to voColumn14
Handle hoColumn14
Get Create (RefClass(cComColumn)) to hoColumn14
Set pvComObject of hoColumn14 to voColumn14
Set ComVisible of hoColumn14 to False
Send Destroy to hoColumn14
Send Destroy to hoColumns16
Variant voColumns17
Get ComColumns to voColumns17
Handle hoColumns17
Get Create (RefClass(cComColumns)) to hoColumns17
Set pvComObject of hoColumns17 to voColumns17
Variant voColumn15
Get ComAdd of hoColumns17 "ReportsTo" to voColumn15
Handle hoColumn15
Get Create (RefClass(cComColumn)) to hoColumn15
Set pvComObject of hoColumn15 to voColumn15
Set ComVisible of hoColumn15 to False
Send Destroy to hoColumn15
Send Destroy to hoColumns17
Variant voColumns18
Get ComColumns to voColumns18
Handle hoColumns18
Get Create (RefClass(cComColumns)) to hoColumns18
Set pvComObject of hoColumns18 to voColumns18
Variant voColumn16
Get ComAdd of hoColumns18 "Personal Info" to voColumn16
Handle hoColumn16
Get Create (RefClass(cComColumn)) to hoColumn16
Set pvComObject of hoColumn16 to voColumn16
Set ComDef of hoColumn16 OLEexCellFormatLevel to "18;18/(15:54,(2/1/4))"
Set ComFormatLevel of hoColumn16 to "18;18/(15:54,(2/1/4))"
Set ComWidth of hoColumn16 to 196
Send Destroy to hoColumn16
Send Destroy to hoColumns18
Variant voColumns19
Get ComColumns to voColumns19
Handle hoColumns19
Get Create (RefClass(cComColumns)) to hoColumns19
Set pvComObject of hoColumns19 to voColumns19
Variant voColumn17
Get ComAdd of hoColumns19 "General Info" to voColumn17
Handle hoColumn17
Get Create (RefClass(cComColumn)) to hoColumn17
Set pvComObject of hoColumn17 to voColumn17
Set ComDef of hoColumn17 OLEexCellFormatLevel to "18;19/((8/18;5):128,((((13/11/12),(6/7/10)),16)))"
Set ComFormatLevel of hoColumn17 to "18;19/((8/18;5):128,((((13/11/12),(6/7/10)),16)))"
Set ComWidth of hoColumn17 to 512
Send Destroy to hoColumn17
Send Destroy to hoColumns19
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "" to Nothing
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 "" to Nothing
Send Destroy to hoItems1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Get ComAddItem of hoItems2 "" to Nothing
Send Destroy to hoItems2
Variant voItems3
Get ComItems to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Get ComAddItem of hoItems3 "" to Nothing
Send Destroy to hoItems3
End_Procedure
|
|
538
|
How do I arrange, format or layout the column's header on multiple levels or lines
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "EmployeeID" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "LastName" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "FirstName" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComVisible of hoColumn2 to False
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 "Handler" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComVisible of hoColumn3 to False
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant voColumns4
Get ComColumns to voColumns4
Handle hoColumns4
Get Create (RefClass(cComColumns)) to hoColumns4
Set pvComObject of hoColumns4 to voColumns4
Variant voColumn4
Get ComAdd of hoColumns4 "Title" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComVisible of hoColumn4 to False
Set ComDisplayFilterButton of hoColumn4 to True
Send Destroy to hoColumn4
Send Destroy to hoColumns4
Variant voColumns5
Get ComColumns to voColumns5
Handle hoColumns5
Get Create (RefClass(cComColumns)) to hoColumns5
Set pvComObject of hoColumns5 to voColumns5
Variant voColumn5
Get ComAdd of hoColumns5 "TitleOfCourtesy" to voColumn5
Handle hoColumn5
Get Create (RefClass(cComColumn)) to hoColumn5
Set pvComObject of hoColumn5 to voColumn5
Set ComVisible of hoColumn5 to False
Set ComDisplayFilterButton of hoColumn5 to True
Send Destroy to hoColumn5
Send Destroy to hoColumns5
Variant voColumns6
Get ComColumns to voColumns6
Handle hoColumns6
Get Create (RefClass(cComColumns)) to hoColumns6
Set pvComObject of hoColumns6 to voColumns6
Variant voColumn6
Get ComAdd of hoColumns6 "BirthDate" to voColumn6
Handle hoColumn6
Get Create (RefClass(cComColumn)) to hoColumn6
Set pvComObject of hoColumn6 to voColumn6
Set ComVisible of hoColumn6 to False
Send Destroy to hoColumn6
Send Destroy to hoColumns6
Variant voColumns7
Get ComColumns to voColumns7
Handle hoColumns7
Get Create (RefClass(cComColumns)) to hoColumns7
Set pvComObject of hoColumns7 to voColumns7
Variant voColumn7
Get ComAdd of hoColumns7 "HideDate" to voColumn7
Handle hoColumn7
Get Create (RefClass(cComColumn)) to hoColumn7
Set pvComObject of hoColumn7 to voColumn7
Set ComVisible of hoColumn7 to False
Send Destroy to hoColumn7
Send Destroy to hoColumns7
Variant voColumns8
Get ComColumns to voColumns8
Handle hoColumns8
Get Create (RefClass(cComColumns)) to hoColumns8
Set pvComObject of hoColumns8 to voColumns8
Variant voColumn8
Get ComAdd of hoColumns8 "Address" to voColumn8
Handle hoColumn8
Get Create (RefClass(cComColumn)) to hoColumn8
Set pvComObject of hoColumn8 to voColumn8
Set ComVisible of hoColumn8 to False
Send Destroy to hoColumn8
Send Destroy to hoColumns8
Variant voColumns9
Get ComColumns to voColumns9
Handle hoColumns9
Get Create (RefClass(cComColumns)) to hoColumns9
Set pvComObject of hoColumns9 to voColumns9
Variant voColumn9
Get ComAdd of hoColumns9 "City" to voColumn9
Handle hoColumn9
Get Create (RefClass(cComColumn)) to hoColumn9
Set pvComObject of hoColumn9 to voColumn9
Set ComVisible of hoColumn9 to False
Send Destroy to hoColumn9
Send Destroy to hoColumns9
Variant voColumns10
Get ComColumns to voColumns10
Handle hoColumns10
Get Create (RefClass(cComColumns)) to hoColumns10
Set pvComObject of hoColumns10 to voColumns10
Variant voColumn10
Get ComAdd of hoColumns10 "Region" to voColumn10
Handle hoColumn10
Get Create (RefClass(cComColumn)) to hoColumn10
Set pvComObject of hoColumn10 to voColumn10
Set ComVisible of hoColumn10 to False
Send Destroy to hoColumn10
Send Destroy to hoColumns10
Variant voColumns11
Get ComColumns to voColumns11
Handle hoColumns11
Get Create (RefClass(cComColumns)) to hoColumns11
Set pvComObject of hoColumns11 to voColumns11
Variant voColumn11
Get ComAdd of hoColumns11 "PostCode" to voColumn11
Handle hoColumn11
Get Create (RefClass(cComColumn)) to hoColumn11
Set pvComObject of hoColumn11 to voColumn11
Set ComVisible of hoColumn11 to False
Send Destroy to hoColumn11
Send Destroy to hoColumns11
Variant voColumns12
Get ComColumns to voColumns12
Handle hoColumns12
Get Create (RefClass(cComColumns)) to hoColumns12
Set pvComObject of hoColumns12 to voColumns12
Variant voColumn12
Get ComAdd of hoColumns12 "Country" to voColumn12
Handle hoColumn12
Get Create (RefClass(cComColumn)) to hoColumn12
Set pvComObject of hoColumn12 to voColumn12
Set ComVisible of hoColumn12 to False
Send Destroy to hoColumn12
Send Destroy to hoColumns12
Variant voColumns13
Get ComColumns to voColumns13
Handle hoColumns13
Get Create (RefClass(cComColumns)) to hoColumns13
Set pvComObject of hoColumns13 to voColumns13
Variant voColumn13
Get ComAdd of hoColumns13 "HomePage" to voColumn13
Handle hoColumn13
Get Create (RefClass(cComColumn)) to hoColumn13
Set pvComObject of hoColumn13 to voColumn13
Set ComVisible of hoColumn13 to False
Send Destroy to hoColumn13
Send Destroy to hoColumns13
Variant voColumns14
Get ComColumns to voColumns14
Handle hoColumns14
Get Create (RefClass(cComColumns)) to hoColumns14
Set pvComObject of hoColumns14 to voColumns14
Variant voColumn14
Get ComAdd of hoColumns14 "Extension" to voColumn14
Handle hoColumn14
Get Create (RefClass(cComColumn)) to hoColumn14
Set pvComObject of hoColumn14 to voColumn14
Set ComVisible of hoColumn14 to False
Send Destroy to hoColumn14
Send Destroy to hoColumns14
Variant voColumns15
Get ComColumns to voColumns15
Handle hoColumns15
Get Create (RefClass(cComColumns)) to hoColumns15
Set pvComObject of hoColumns15 to voColumns15
Variant voColumn15
Get ComAdd of hoColumns15 "Photo" to voColumn15
Handle hoColumn15
Get Create (RefClass(cComColumn)) to hoColumn15
Set pvComObject of hoColumn15 to voColumn15
Set ComVisible of hoColumn15 to False
Send Destroy to hoColumn15
Send Destroy to hoColumns15
Variant voColumns16
Get ComColumns to voColumns16
Handle hoColumns16
Get Create (RefClass(cComColumns)) to hoColumns16
Set pvComObject of hoColumns16 to voColumns16
Variant voColumn16
Get ComAdd of hoColumns16 "Notes" to voColumn16
Handle hoColumn16
Get Create (RefClass(cComColumn)) to hoColumn16
Set pvComObject of hoColumn16 to voColumn16
Set ComVisible of hoColumn16 to False
Send Destroy to hoColumn16
Send Destroy to hoColumns16
Variant voColumns17
Get ComColumns to voColumns17
Handle hoColumns17
Get Create (RefClass(cComColumns)) to hoColumns17
Set pvComObject of hoColumns17 to voColumns17
Variant voColumn17
Get ComAdd of hoColumns17 "ReportsTo" to voColumn17
Handle hoColumn17
Get Create (RefClass(cComColumn)) to hoColumn17
Set pvComObject of hoColumn17 to voColumn17
Set ComVisible of hoColumn17 to False
Send Destroy to hoColumn17
Send Destroy to hoColumns17
Variant voColumns18
Get ComColumns to voColumns18
Handle hoColumns18
Get Create (RefClass(cComColumns)) to hoColumns18
Set pvComObject of hoColumns18 to voColumns18
Variant voColumn18
Get ComAdd of hoColumns18 "Personal Info" to voColumn18
Handle hoColumn18
Get Create (RefClass(cComColumn)) to hoColumn18
Set pvComObject of hoColumn18 to voColumn18
Set ComFormatLevel of hoColumn18 to "18;18/(15:54,(2/1/4))"
Set ComWidth of hoColumn18 to 196
Send Destroy to hoColumn18
Send Destroy to hoColumns18
Variant voColumns19
Get ComColumns to voColumns19
Handle hoColumns19
Get Create (RefClass(cComColumns)) to hoColumns19
Set pvComObject of hoColumns19 to voColumns19
Variant voColumn19
Get ComAdd of hoColumns19 "General Info" to voColumn19
Handle hoColumn19
Get Create (RefClass(cComColumn)) to hoColumn19
Set pvComObject of hoColumn19 to voColumn19
Set ComFormatLevel of hoColumn19 to "18;19/((8/18;5):128,((((13/11/12),(6/7/10)),16)))"
Set ComWidth of hoColumn19 to 512
Send Destroy to hoColumn19
Send Destroy to hoColumns19
End_Procedure
|
|
537
|
How can I select a cells like in excel
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSearchColumn to False
Set ComSingleSel to False
Set ComFullRowSelect to OLEexRectSel
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSelected of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column2" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComAdd of hoColumns2 "Column3" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComSelected of hoColumn1 to True
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComDefaultItem of hoItems to (ComAddItem(hoItems,0))
Set ComCellValue of hoItems 0 1 to 1
Set ComCellValue of hoItems 0 2 to 2
Set ComDefaultItem of hoItems to (ComAddItem(hoItems,3))
Set ComCellValue of hoItems 0 1 to 4
Set ComCellValue of hoItems 0 2 to 5
Set ComDefaultItem of hoItems to (ComAddItem(hoItems,6))
Set ComCellValue of hoItems 0 1 to 7
Set ComCellValue of hoItems 0 2 to 8
Send Destroy to hoItems
End_Procedure
|
|
536
|
How can I select a multiple column
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSearchColumn to False
Set ComSingleSel to False
Set ComFullRowSelect to OLEexRectSel
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSelected of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column2" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComAdd of hoColumns2 "Column3" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComSelected of hoColumn1 to True
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComDefaultItem of hoItems to (ComAddItem(hoItems,0))
Set ComCellValue of hoItems 0 1 to 1
Set ComCellValue of hoItems 0 2 to 2
Set ComDefaultItem of hoItems to (ComAddItem(hoItems,3))
Set ComCellValue of hoItems 0 1 to 4
Set ComCellValue of hoItems 0 2 to 5
Set ComDefaultItem of hoItems to (ComAddItem(hoItems,6))
Set ComCellValue of hoItems 0 1 to 7
Set ComCellValue of hoItems 0 2 to 8
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Send ComSelectAll of hoItems1
Send Destroy to hoItems1
End_Procedure
|
|
535
|
How can I select a column
Procedure OnCreate
Forward Send OnCreate
Set ComMarkSearchColumn to False
Set ComSingleSel to False
Set ComFullRowSelect to OLEexRectSel
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSelected of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"One")) 1 to "One"
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellValue of hoItems1 (ComAddItem(hoItems1,"Two")) 1 to "Two"
Send Destroy to hoItems1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Send ComSelectAll of hoItems2
Send Destroy to hoItems2
End_Procedure
|
|
534
|
How can I collapse all cards
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "1"
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 64
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Expanded"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Send ComCollapseAllCards of hoItems
Send Destroy to hoItems
End_Procedure
|
|
533
|
How can I expand all cards
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "1"
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 64
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Expanded"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Send ComExpandAllCards of hoItems
Send Destroy to hoItems
End_Procedure
|
|
532
|
How can I expand or collapse a card
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "1"
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 64
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Expanded"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Set ComExpandCard of hoItems (ComFocusItem(hoItems)) to True
Send Destroy to hoItems
End_Procedure
|
|
531
|
How can I format or arrange the data being displayed in the card
Procedure OnCreate
Forward Send OnCreate
Set ComHasButtons to OLEexNoButtons
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComItemsAllowSizing to True
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewTitleFormat to "("Title:",0),1"
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to ""
Set ComViewModeOption OLEexCardView OLEexCardViewWidth to 164
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 18
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Card 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Set ComExpandCard of hoItems (ComFocusItem(hoItems)) to True
Send Destroy to hoItems
End_Procedure
|
|
530
|
How can I format or arrange the data being displayed in the card
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComItemsAllowSizing to True
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "("ABC",2)/(0,3,"DEFGH")/1/0/1/0/1/1,0[bg=RGB(230,230,230)][fg=RGB(255,0,0)"
Set ComViewModeOption OLEexCardView OLEexCardViewTitleFormat to ""
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Card 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Set ComExpandCard of hoItems (ComFocusItem(hoItems)) to True
Send Destroy to hoItems
End_Procedure
|
|
529
|
How can I hide the tilte for the cards
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComItemsAllowSizing to True
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "0/1/0/1/0/1/0/1,0"
Set ComViewModeOption OLEexCardView OLEexCardViewTitleFormat to ""
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Card 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Set ComExpandCard of hoItems (ComFocusItem(hoItems)) to True
Send Destroy to hoItems
End_Procedure
|
|
528
|
How can I display resizing lines between cards
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComItemsAllowSizing to True
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "1"
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 36
Set ComViewModeOption OLEexCardView OLEexCardViewVResizeLine to True
Set ComViewModeOption OLEexCardView OLEexCardViewHResizeLine to True
Set ComViewModeOption OLEexCardView OLEexCardViewBorderWidth to 8
Set ComViewModeOption OLEexCardView OLEexCardViewBorderHeight to 8
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Card 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Set ComExpandCard of hoItems (ComFocusItem(hoItems)) to True
Send Destroy to hoItems
End_Procedure
|
|
527
|
How can edit the text in the card
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "1"
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 64
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column 1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLEEditType
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Column 2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLEEditType
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Card 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Set ComExpandCard of hoItems (ComFocusItem(hoItems)) to True
Send Destroy to hoItems
End_Procedure
|
|
526
|
How can I change the height of the card
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "1"
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 64
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Card 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Set ComExpandCard of hoItems (ComFocusItem(hoItems)) to True
Send Destroy to hoItems
End_Procedure
|
|
525
|
How can I display the cards from top to bottom
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "1"
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 36
Set ComViewModeOption OLEexCardView OLEexCardViewLeftToRight to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Card 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Set ComExpandCard of hoItems (ComFocusItem(hoItems)) to True
Send Destroy to hoItems
End_Procedure
|
|
524
|
How do I change the background color for a specified card
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "1"
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 36
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Card 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Set ComExpandCard of hoItems (ComFocusItem(hoItems)) to True
Set ComItemForeColor of hoItems (ComFocusItem(hoItems)) to (RGB(255,0,0))
Send Destroy to hoItems
End_Procedure
|
|
523
|
How do I change the visual aspect for a specified card
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "1"
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 36
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Card 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Set ComExpandCard of hoItems (ComFocusItem(hoItems)) to True
Set ComItemBackColor of hoItems (ComFocusItem(hoItems)) to |CI$1000000
Send Destroy to hoItems
End_Procedure
|
|
522
|
How do I change the background color for a specified card
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "1"
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 36
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Card 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Set ComExpandCard of hoItems (ComFocusItem(hoItems)) to True
Set ComItemBackColor of hoItems (ComFocusItem(hoItems)) to (RGB(255,0,0))
Send Destroy to hoItems
End_Procedure
|
|
521
|
Is there any way to specify the foreground color for the title of the cards
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "1"
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 36
Set ComViewModeOption OLEexCardView OLEexCardViewTitleForeColor to 255
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Card 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Set ComExpandCard of hoItems (ComFocusItem(hoItems)) to True
Send Destroy to hoItems
End_Procedure
|
|
520
|
Is there any way to specify the foreground color for all cards, including its title
Procedure OnCreate
Forward Send OnCreate
Set ComForeColor to (RGB(255,0,0))
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "1"
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 36
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Card 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Set ComExpandCard of hoItems (ComFocusItem(hoItems)) to True
Send Destroy to hoItems
End_Procedure
|
|
519
|
How can I change the visual appearance for all cards, including the title
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voAppearance1
Get ComVisualAppearance to voAppearance1
Handle hoAppearance1
Get Create (RefClass(cComAppearance)) to hoAppearance1
Set pvComObject of hoAppearance1 to voAppearance1
Get ComAdd of hoAppearance1 2 "c:\exontrol\images\pushed.ebn" to Nothing
Send Destroy to hoAppearance1
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "1"
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 36
Set ComViewModeOption OLEexCardView OLEexCardViewBackColor to 16777216
Set ComViewModeOption OLEexCardView OLEexCardViewTitleBackColor to 33554432
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Card 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Set ComExpandCard of hoItems (ComFocusItem(hoItems)) to True
Send Destroy to hoItems
End_Procedure
|
|
518
|
Is there any way to specify the background color for all cards, including its title
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "1"
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 36
Set ComViewModeOption OLEexCardView OLEexCardViewBackColor to 255
Set ComViewModeOption OLEexCardView OLEexCardViewTitleBackColor to 128
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Card 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Set ComExpandCard of hoItems (ComFocusItem(hoItems)) to True
Send Destroy to hoItems
End_Procedure
|
|
517
|
Is there any way to specify the background color for all cards
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "1"
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 36
Set ComViewModeOption OLEexCardView OLEexCardViewBackColor to 255
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Card 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Set ComExpandCard of hoItems (ComFocusItem(hoItems)) to True
Send Destroy to hoItems
End_Procedure
|
|
516
|
How can I specify the distance between cards
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "1"
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 36
Set ComViewModeOption OLEexCardView OLEexCardViewBorderWidth to 16
Set ComViewModeOption OLEexCardView OLEexCardViewBorderHeight to 16
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Card 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Set ComExpandCard of hoItems (ComFocusItem(hoItems)) to True
Send Destroy to hoItems
End_Procedure
|
|
515
|
How can I resize the cards at runtime
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComItemsAllowSizing to True
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "1"
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 36
Set ComViewModeOption OLEexCardView OLEexCardViewVResizeLine to True
Set ComViewModeOption OLEexCardView OLEexCardViewHResizeLine to True
Set ComViewModeOption OLEexCardView OLEexCardViewBorderWidth to 8
Set ComViewModeOption OLEexCardView OLEexCardViewBorderHeight to 8
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Card 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Set ComExpandCard of hoItems (ComFocusItem(hoItems)) to True
Send Destroy to hoItems
End_Procedure
|
|
514
|
How can show the grid lines for my cards
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "1"
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 36
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Card 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Send Destroy to hoItems
End_Procedure
|
|
513
|
How can I hide the +/- expanding / collapsing buttons in the cards
Procedure OnCreate
Forward Send OnCreate
Set ComExpandOnDblClick to False
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "1"
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 36
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Card 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Send Destroy to hoItems
End_Procedure
|
|
512
|
How can I hide the +/- expanding / collapsing buttons in the cards
Procedure OnCreate
Forward Send OnCreate
Set ComHasButtons to OLEexNoButtons
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "1"
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 36
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Card 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Send Destroy to hoItems
End_Procedure
|
|
511
|
Is there any way to to specify the number of cards being displayed from letf to right
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "1"
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 36
Set ComViewModeOption OLEexCardView OLEexCardViewColumns to 3
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Card 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Send Destroy to hoItems
End_Procedure
|
|
510
|
Is there any way to to specify the width of the cards, so they fit the control's client area
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "1"
Set ComViewModeOption OLEexCardView OLEexCardViewWidth to 0
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 36
Set ComViewModeOption OLEexCardView OLEexCardViewColumns to 2
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Card 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Send Destroy to hoItems
End_Procedure
|
|
509
|
Is there any way to to specify the width of the cards, so they fit the control's client area
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "1"
Set ComViewModeOption OLEexCardView OLEexCardViewWidth to 0
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 36
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Card 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Send Destroy to hoItems
End_Procedure
|
|
508
|
Is there any way to to specify the width of the cards
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "1"
Set ComViewModeOption OLEexCardView OLEexCardViewWidth to 64
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 36
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Card 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Send Destroy to hoItems
End_Procedure
|
|
507
|
Is there any way to indent the control's data relative to the borders or the frame of the control
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComHeaderVisible to False
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexBorderWidth to 8
Set ComViewModeOption OLEexCardView OLEexBorderHeight to 8
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "1"
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 36
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Card 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Send Destroy to hoItems
End_Procedure
|
|
506
|
Is there any way to indent the control's data relative to the borders or the frame of the control
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComViewMode to OLEexTableView
Set ComViewModeOption OLEexTableView OLEexBorderWidth to 8
Set ComViewModeOption OLEexTableView OLEexBorderHeight to 8
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Item 1")) 1 to "Item 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Item 2")) 1 to "Item 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Item 3")) 1 to "Item 1.3"
Send Destroy to hoItems
End_Procedure
|
|
505
|
How can I display my rows or items as a table
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComViewMode to OLEexTableView
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Item 1")) 1 to "Item 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Item 2")) 1 to "Item 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Item 3")) 1 to "Item 1.3"
Send Destroy to hoItems
End_Procedure
|
|
504
|
How can I display my rows as cards
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Set ComViewMode to OLEexCardView
Set ComViewModeOption OLEexCardView OLEexCardViewFormat to "1"
Set ComViewModeOption OLEexCardView OLEexCardViewHeight to 36
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 1")) 1 to "Card 1.1"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 2")) 1 to "Card 1.2"
Set ComCellValue of hoItems (ComAddItem(hoItems,"Card 3")) 1 to "Card 1.3"
Send Destroy to hoItems
End_Procedure
|
|
503
|
How can I avoid focusing a new cell, when user presses an arrow, page, home or end key, while the editor is opened
Procedure OnCreate
Forward Send OnCreate
Set ComDefaultEditorOption OLEexLeftArrow to 0
Set ComDefaultEditorOption OLEexRightArrow to 0
Set ComDefaultEditorOption OLEexUpArrow to 0
Set ComDefaultEditorOption OLEexDownArrow to 0
Set ComDefaultEditorOption OLEexHomeKey to 0
Set ComDefaultEditorOption OLEexEndKey to 0
Set ComDefaultEditorOption OLEexPageUpKey to 0
Set ComDefaultEditorOption OLEexPageDownKey to 0
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Edit" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLEEditType
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Edit" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLEEditType
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,0)) 1 to 1
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellValue of hoItems1 (ComAddItem(hoItems1,2)) 1 to 3
Send Destroy to hoItems1
End_Procedure
|
|
502
|
How can I expand predefined items in a drop down list editor as I type
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "DropDown" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComOption of hoEditor OLEexExpandOnSearch to True
Set ComEditType of hoEditor to OLEDropDownListType
Set ComDropDownAutoWidth of hoEditor to OLEexDropDownEditorWidth
Send ComAddItem of hoEditor 1 "<b>CObject</b> class" 1
Send ComInsertItem of hoEditor 2 "<b>CCmdTarget</b> class" 2 1
Send ComInsertItem of hoEditor 3 "<b>CWnd</b> class" 3 2
Send ComInsertItem of hoEditor 6 "<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>" 1 1
Send ComAddItem of hoEditor 4 "Exceptions" 1
Send ComInsertItem of hoEditor 7 "<b>System</b> Exceptions" 2 4
Send ComAddItem of hoEditor 5 "File Services" 2
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 1 to Nothing
Get ComAddItem of hoItems 2 to Nothing
Send Destroy to hoItems
End_Procedure
|
|
501
|
How can I add an extra button to a date picker editor
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComDefaultItemHeight to 20
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Date" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLEDateType
Send ComAddButton of hoEditor "B1" 2 1 "This is a bit of text that's shown when the cursor hovers the button B1" Nothing Nothing
Set ComButtonWidth of hoEditor to 20
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 0 to Nothing
Get ComAddItem of hoItems 1 to Nothing
Send Destroy to hoItems
End_Procedure
|